;:sys36864
tmp	=166
clrchn	=$ffcc
close	=$ffc3
grafik	=$2000
chkout	=65481
open	=65472
ciout	=$ffa8
buf	=690
line	=2
colm	=3
print	sei
	lda #1
	ldx #4
	ldy #1
	jsr $ffba
	lda #0
	jsr $ffbd
	jsr open
	ldx #1
	jsr chkout
	ldx #6
p1out	lda pri1,x
	jsr ciout
	dex
	bpl p1out
	ldy #0
	sty tmp
	lda #>grafik
	sta tmp+1
	lda #25
	sta line
zeile	jsr esc
	lda #"*"
	jsr ciout
	lda #$27
	jsr ciout
	lda #<960
	jsr ciout
	lda #>960
	jsr ciout
	lda #40
	sta colm
spalte	ldy #0
robyte	ldx #0
	lda (tmp),y
robit	asl
	rol buf,x
	inx
	cpx #8
	bne robit
	iny
	cpy #8
	bne robyte
	ldx #7
nadel24	ldy #7
nadel25	lda buf,x
	asl
	rol buf+8,x
	rol buf+16,x
	rol buf+24,x
	lda buf,x
	asl
	rol buf+8,x
	rol buf+16,x
	rol buf+24,x
	lda buf,x
	asl
	rol buf+8,x
	rol buf+16,x
	rol buf+24,x
	sta buf,x
	dey
	bpl nadel25
	dex
	bpl nadel24
	ldx #0
ausgabe	lda buf+24,x
	jsr ciout
	lda buf+16,x
	jsr ciout
	lda buf+8,x
	jsr ciout
	lda buf+24,x
	jsr ciout
	lda buf+16,x
	jsr ciout
	lda buf+8,x
	jsr ciout
	lda buf+24,x
	jsr ciout
	lda buf+16,x
	jsr ciout
	lda buf+8,x
	jsr ciout
	inx
	cpx #8
	bne ausgabe
	clc
	lda tmp
	adc #8
	sta tmp
	bcc noinc
	inc tmp+1
noinc	dec colm
	beq endcol
	jmp spalte
endcol	lda #13
	jsr ciout
	dec line
	beq endlin
	jmp zeile
endlin	jsr esc
	lda #64
	jsr ciout
	lda #13
	jsr ciout
	jsr clrchn
	lda #1
	jmp close
esc	lda #27
	jmp ciout
pri1	.byt 13,24,$33,27,13,64,27